perm filename SAILOW.GRU[S,AIL] blob
sn#263539 filedate 1977-02-14 generic text, type T, neo UTF8
+
000000 000000
000000 000000 000,000,000,000,000,000 000 000000
000000 000004
000000 000005 000,000,000,000,002, @ 000 000005
000000 000006 000,000,000,000,003,000 000 000006
000000 000007
000000 000043 000,000,000,000,021, @ 000 000043
000000 000044 000,000,000,000,022,000 000 000044
000000 000077'
000000 000116'
000000 000117'
000000 000120'
000000 000121'
000000 000122'
000000 000123'
000000 000124'
000000 000125'
000000 000126'
000000 000130'
000000 000132'
000000 000134'
000000 000273'
000000 000557'
000001 000001 000,000,010,000,000, @ 000 000001(01)
000002 000002 000,000,020,000,001,000 000 000002(02)
000003 000003 000,000,030,000,001, @ 000 000003(03)
000004 000004 000,000, ,000,002,000 000 000004(04)
000012 000000
000156' 000436'
000160' 000430'
000162' 000433'
000164' 000164'
000305' 000314'
000314' 000334'
000317' 000423'
000331' 000460'
000336' 000421'
000344' 000351'
000352' 000415'
000353' 000422'
000355' 000414'
000362' 000413'
000364' 000416'
000370' 000424'
000373' 000417'
000374' 000424'
000376' 000466'
000377' 000421'
000401' 000441'
000417' 000452'
000426' 000445'
000467' 000503'
04 CAT 000000 400055
04 CVD 000000 400072
04 CVE 000000 400066
04 CVF 000000 400064
04 CVG 000000 400065
04 CVO 000000 400073
04 CVS 000000 400074
04 EQU 000000 400071
04 OUT 000000 400134
04 POW 000000 400044
04 X11 000000 000227'
04 X22 000000 000230'
04 X33 000000 000231'
04 X44 000000 000232'
04 $FXD 000000 400253
04 $FXG 000000 400251
04 %SPL 000000 000135'
04 .CH. 000000 411176
04 .MT. 000000 411212
04 CALL 000000 400053
04 CODE 000000 400052
04 CVEL 000000 400417
04 CVIS 000000 400351
04 CVOS 000000 400075
04 CVSI 000000 400350
04 DATM 000000 000001'
04 EXP$ 000000 400047
04 FPOW 000000 400043
04 JOIN 000000 400271
04 LEAP 000000 400335
04 LOG$ 000000 400050
04 LOGS 000000 400046
04 OPEN 000000 400122
04 SAVE 000000 402150
04 SCAN 000000 400100
04 $DELB 000000 400241
04 $ENQR 000000 400261
04 $GETB 000000 400240
04 $PINT 000000 400404
04 $PITM 000000 400406
04 $PLRL 000000 400420
04 $PLST 000000 400410
04 $PREC 000000 400411
04 $PREL 000000 400405
04 $PSET 000000 400407
04 $PSTR 000000 400412
04 $REC$ 000000 400256
04 $RERR 000000 400257
04 %ERGO 000000 000014'
04 %ERRC 000000 000012'
04 %SPGC 000000 400033
04 .FAIL 000000 400352
04 .MES1 000000 420135
04 .MES2 000000 420135
04 .TEN. 000000 411226
04 ALLRM 000000 400357
04 ALLRS 000000 400361
04 APPLY 000000 400237
04 ARCOP 000000 400221
04 ARMAK 000000 400223
04 ARYEL 000000 400224
04 BALNK 000000 000126'
04 BBPP. 000000 400062
04 BEXIT 000000 400225
04 CAUSE 000000 400307
04 CLOSE 000000 400155
04 CLOSO 000000 400154
04 CSERR 000000 400117
04 CVASC 000000 400103
04 CVFIL 000000 400106
04 CVSIX 000000 400102
04 CVSTR 000000 400104
04 ENTER 000000 400132
04 FLOGS 000000 400045
04 GDATM 000000 000115'
04 INFTB 000000 000003'
04 INOUT 000000 400151
04 INPUT 000000 400135
04 INSET 000000 400022
04 INSTR 000000 400166
04 INTIN 000000 400140
04 K.OUT 000000 400042
04 KTLNK 000000 000122'
04 LISTX 000000 400345
04 LODED 000000 400212
04 LPINI 000000 400334
04 LRCOP 000000 400220
04 LRMAK 000000 400222
04 MTAPE 000000 400156
04 P.FIN 000000 400116
04 PDLNK 000000 000124'
04 POINT 000000 400063
04 PROPS 000000 000055'
04 PTYIN 000000 400217
04 PUTCH 000000 400061
04 RESTR 000000 402156
04 RPGSW 000000 000005'
04 SCANC 000000 400413
04 SETCP 000000 400314
04 SETIP 000000 400315
04 SETPL 000000 400124
04 SGINS 000000 400036
04 SGREM 000000 400037
04 SGROT 000000 000121'
04 SIMIO 000000 407505
04 STLNK 000000 000116'
04 STRGC 000000 400030
04 SUBSR 000000 400070
04 SUBST 000000 400067
04 TMPIN 000000 400415
04 TTYIN 000000 400176
04 TTYUP 000000 400177
04 TYPEX 000000 400343
04 USETI 000000 400157
04 USETO 000000 400160
04 $$DERR 000000 400414
04 $$PRIN 000000 400114
04 $CLASS 000000 000101'
04 $DEL1B 000000 400243
04 $FSADD 000000 400244
04 $FSINI 000000 400247
04 $FSINS 000000 400246
04 $FUNLK 000000 400245
04 $FXBLD 000000 400255
04 $FXDEL 000000 400252
04 $FXGET 000000 400250
04 $GET1B 000000 400242
04 $M1FLD 000000 400263
04 $PDLOV 000000 400016
04 $PRINT 000000 400115
04 $RALLO 000000 414444
04 $RCINI 000000 400375
04 $RDREF 000000 414401
04 $RECFN 000000 400374
04 $RECGC 000000 400262
04 $RMARK 000000 400376
04 $SPCAR 000000 000110'
04 %ALLCH 000000 000225'
04 %ALLOC 000000 400013
04 %ARRSR 000000 400035
04 %ARSR1 000000 403300
04 %OCTRE 000000 000226'
04 %PSSGC 000000 400277
04 %RECOV 000000 000013'
04 %RENSW 000000 000006'
04 %SPGC1 000000 403260
04 %STDLS 000000 000153'
04 %STRMR 000000 400034
04 %UUOLN 000000 400015
04 ..PAT. 000000 413714
04 .CORIN 000000 000075'
04 .DTRT. 000000 000036'
04 .ERBWD 000000 000071'
04 .ERRJ. 000000 000011'
04 .ERRP. 000000 000010'
04 .ERSTC 000000 000070'
04 .ERSTP 000000 000015'
04 .ERSTR 000000 000016'
04 .EXPIN 000000 000037'
04 .INCON 000000 400365
04 .LEPIN 000000 000076'
04 .SEG2. 000000 000334'
04 .SGCIN 000000 000040'
04 .SKIP. 000000 000004'
04 .SONTP 000000 400031
04 .SUCCE 000000 400353
04 .TRACS 000000 000041'
04 .UINIT 000000 400014
04 .UUOCN 000000 000074'
04 ALLFOR 000000 400360
04 ALLPDL 000000 000165'
04 ALLPDP 000000 000164'
04 ANSWER 000000 400311
04 APPL$Y 000000 400236
04 APRACS 000000 000233'
04 ARRBLT 000000 400230
04 ARRCLR 000000 400232
04 ARRINF 000000 400227
04 ARRTRA 000000 400231
04 ARRYIN 000000 400144
04 ARRYOU 000000 400142
04 ASKNTC 000000 400313
04 BACKUP 000000 400214
04 BKTCHK 000000 400101
04 BREAKS 000000 400107
04 BRKERS 000000 400336
04 BRKMAK 000000 400337
04 BRKMSK 000000 403621
04 BRKOFF 000000 400340
04 CALLER 000000 400273
04 CANINC 000000 400025
04 CAT.RV 000000 400054
04 CATCHR 000000 400057
04 CAUSE1 000000 400310
04 CHNCDB 000000 400125
04 CHRCAT 000000 400056
04 CHRCHR 000000 400060
04 CLKMOD 000000 400302
04 CLOSIN 000000 400153
04 CLRBUF 000000 400173
04 CLSLNK 000000 000077'
04 CONELM 000000 400366
04 CONFIG 000000 000007'
04 CORBIG 000000 400027
04 CORGET 000000 400023
04 CORINC 000000 400024
04 CORREL 000000 400026
04 CV6STR 000000 400371
04 CVASTR 000000 400373
04 CVXSTR 000000 400105
04 DATERR 000000 420137
04 DDFINT 000000 400300
04 DEFPRI 000000 000061'
04 DEFPSS 000000 000060'
04 DEFQNT 000000 000062'
04 DEFSSS 000000 000057'
04 DEL.PN 000000 400347
04 DFCPKT 000000 400306
04 DFR1IN 000000 400303
04 DFRINT 000000 400304
04 DISABL 000000 400327
04 DT.RET 000000 400017
04 EDFILE 000000 400401
04 ENABLE 000000 400326
04 ERENAM 000000 400372
04 ERMSBF 000000 400021
04 FILEIN 000000 400133
04 FILNAM 000000 407612
04 FLDKIL 000000 400260
04 FLSCAN 000000 407640
04 FORGET 000000 400355
04 FP1DON 000000 400362
04 FP2DON 000000 400363
04 GETBRE 000000 400112
04 GETCHA 000000 400121
04 GETCHN 000000 407566
04 GETFOR 000000 400077
04 GETPRI 000000 400403
04 GETSTS 000000 400127
04 GINFTB 000000 000115'
04 GOGTAB 000000 000000'
04 GPROPS 000000 000115'
04 IFGLOB 000000 400342
04 INCHRS 000000 400163
04 INCHRW 000000 400162
04 INCHSL 000000 400170
04 INCHWL 000000 400167
04 INIACS 000000 000253'
04 INILNK 000000 000123'
04 INSTRL 000000 400171
04 INSTRS 000000 400172
04 INTERR 000000 400312
04 INTMAP 000000 400330
04 INTMOD 000000 400325
04 INTPRO 000000 400305
04 INTRPT 000000 000054'
04 INTSCA 000000 400141
04 INTSET 000000 400301
04 INTTBL 000000 400324
04 K.ZERO 000000 400041
04 LINOUT 000000 400152
04 LKSTAT 000000 000002'
04 LOOKUP 000000 400131
04 LPRYER 000000 400120
04 LREALI 000000 400421
04 LREALS 000000 400422
04 MAINPR 000000 400272
04 MKEVTT 000000 400316
04 MYPROC 000000 400274
04 NEW.PN 000000 400346
04 NOPOLL 000000 000056'
04 NOTOPN 000000 407573
04 ONEWRD 000000 400367
04 OUTCHR 000000 400164
04 OUTSTR 000000 400165
04 OVPCWD 000000 000063'
04 PITBND 000000 400233
04 PITCOP 000000 400234
04 PITDTM 000000 400235
04 PRISET 000000 400276
04 PSTATU 000000 400275
04 PTCHRS 000000 400207
04 PTCHRW 000000 400206
04 PTIFRE 000000 400204
04 PTOCHS 000000 400210
04 PTOCHW 000000 400211
04 PTOCNT 000000 400205
04 PTOSTR 000000 400213
04 PTYALL 000000 400215
04 PTYGET 000000 400200
04 PTYGTL 000000 400202
04 PTYREL 000000 400201
04 PTYSTL 000000 400203
04 PTYSTR 000000 400216
04 RBLIST 000000 000125'
04 REALIN 000000 400136
04 REALSC 000000 400137
04 RECCHN 000000 000072'
04 RELBRE 000000 400113
04 RELEAS 000000 400123
04 REMEMB 000000 400354
04 RENAME 000000 400161
04 RESTOR 000000 400356
04 RESUME 000000 400266
04 RGCLST 000000 000073'
04 RUNNER 000000 000053'
04 SAILOR 000000 000301'
04 SDESCR 000000 400364
04 SETBRE 000000 400110
04 SETFOR 000000 400076
04 SETLET 000000 000120'
04 SETPRI 000000 400402
04 SETSTS 000000 400130
04 SGLKBK 000000 000127'
04 SPLICE 000000 400377
04 SPLNEK 000000 000117'
04 SPLPRT 000000 400400
04 SPROUT 000000 400264
04 SPRPDA 000000 415710
04 STACRS 000000 402170
04 STACSV 000000 402164
04 STCLER 000000 400040
04 STDBRK 000000 400111
04 STKUWD 000000 400226
04 STRCHN 000000 000107'
04 STRNGC 000000 400032
04 SUSPEN 000000 400267
04 TERMIN 000000 400270
04 TMPOUT 000000 400416
04 TTYINL 000000 400175
04 TTYINS 000000 400174
04 TWOWRD 000000 400370
04 TYPEIT 000000 400344
04 URSCHD 000000 400265
04 USERCO 000000 400051
04 USERER 000000 400020
04 WORDIN 000000 400145
04 WORDOU 000000 400143
04 XJBAPR 000000 000066'
04 XJBCNI 000000 000064'
04 XJBENB 000000 000067'
04 XJBTPC 000000 000065'
041040 000017 010, " ,000,000,007, @ INIT 01,000017
047000 000000 011, ` ,000,000,000,000 CALLI 000000
047000 000012 011, ` ,000,000,005,000 CALLI 000012
047040 000011 011, b ,000,000,004, @ CALLI 01,000011
047040 000012 011, b ,000,000,005,000 CALLI 01,000012
047040 400015 011, b ,004,000,006, @ CALLI 01,400015
047040 400016 011, b ,004,000,007,000 CALLI 01,400016
047040 400036 011, b ,004,000,017,000 CALLI 01,400036
047200 000037 011, h ,000,000,017, @ CALLI 04,000037
047200 400052 011, h ,004,000,025,000 CALLI 04,400052
050000 000000 012,000,000,000,000,000 OPEN 000000
051140 000000 012, & ,000,000,000,000 TTYUUO 03,000000
064250 347652 015,012, C , O , U ,000 INBUF 05,347652(10)
064250 567310 015,012, E , n , d ,000 INBUF 05,567310(10)
064252 342650 015,012, S , E , T ,000 INBUF 05,342650(12)
066040 000000 015, B ,000,000,000,000 INPUT 01,000000
070000 000050 016,000,000,000,024,000 CLOSE 000050
070000 000300 016,000,000,000, ` ,000 CLOSE 000300
076040 000000 017, B ,000,000,000,000 LOOKUP 01,000000
10 A 000000 000001
10 B 000000 000002
10 C 000000 000003
10 D 000000 000004
10 E 000000 000005
10 P 000000 000017
10 T 000000 000011
10 X 000000 000005
10 Y 000000 000006
10 Z 000000 000007
10 Q1 000000 000006
10 Q2 000000 000007
10 Q3 000000 000010
10 SP 000000 000016
10 T1 000000 000012
10 CDB 000000 000011
10 FIX 003000 000000
10 TRC 431000 000000
10 TRO 435000 000000
10 TRZ 421000 000000
10 CHNL 000000 000010
10 DADD 114000 000000
10 DDIV 117000 000000
10 DMUL 116000 000000
10 DSUB 115000 000000
10 ERR. 005000 000000
10 FIXR 126000 000000
10 FLTR 127000 000000
10 INTT 000000 000357'
10 JFOV 255040 000000
10 LIOD 000000 000424'
10 LPLK 000000 000273'
10 LPSA 000000 000013
10 PUUO 051000 000000
10 RCLK 000000 000276'
10 SEGS 000000 000001
10 SNGL 014000 000000
10 STRT 000000 000315'
10 TEMP 000000 000014
10 USER 000000 000015
10 ADJSP 105000 000000
10 ARERR 007000 000000
10 DMOVE 120000 000000
10 DMOVN 121000 000000
10 ERSEG 000000 000417'
10 FLOAT 002000 000000
10 GETSE 000000 000351'
10 KIFIX 122000 000000
10 LOP22 000000 000374'
10 LOWER 000000 000001
10 LUPDL 000000 000030
10 NMSAV 000000 000404'
10 REENT 000000 000306'
10 SEGTR 000000 000336'
10 UINBF 704000 000000
10 UPPER 000000 000000
10 $CLS.1 000000 000102'
10 $CLS.2 000000 000103'
10 $CLS.3 000000 000104'
10 $CLS.4 000000 000105'
10 $CLS.5 000000 000106'
10 $CLS.R 000000 000100'
10 CORE2U 000000 400015
10 DECPNT 011000 000000
10 DEVSEG 000000 000412'
10 DMOVEM 124000 000000
10 DMOVNM 125000 000000
10 DPYCLR 701000 000000
10 DPYOUT 703000 000000
10 ERRSPL 013000 000000
10 FRSTRT 000000 000314'
10 IOERR. 004000 000000
10 OCTPNT 012000 000000
10 PDPFIX 247000 000000
10 RECUUO 010000 000000
10 RESTRT 000000 000311'
10 S11ARE 000000 000111'
10 S12ARE 000000 000112'
10 S13ARE 000000 000113'
10 S14ARE 000000 000114'
10 SEGDEV 000000 000405'
10 SEGFIL 000000 000406'
10 SEGNAM 000000 000413'
10 SEGPPN 000000 000411'
10 SEGSIZ 000000 400022
10 SIXPNT 006000 000000
10 TTCALL 051000 000000
102200 000000 020, H ,000,000,000,000 102 04,000000
14 LOWER 000000 000001
200040 000000 ,002,000,000,000,000 MOVE 01,000000
200600 000000 ,030,000,000,000,000 MOVE 14,000000
200740 000164' ,036,000,000, : ,000 MOVE 17,000164'
201013 147652 , , Y , O , U ,000 MOVEI 147652(13)
201040 000000 , " ,000,000,000,000 MOVEI 01,000000
201040 000311' , " ,000,000, d , @ MOVEI 01,000311'
201740 000253' , > ,000,000, U , @ MOVEI 17,000253'
202132 251236 , E , R , R , O ,000 MOVEM 02,@251236(12)
202171 747610 , G , O , O , D ,000 MOVEM 03,@747610(11)
202210 150240 , H , A , P , P ,000 MOVEM 04,150240(10)
202312 541626 , L , U , C , K ,000 MOVEM 06,541626(12)
202372 444212 , O , T , H , E ,000 MOVEM 07,@444212(12)
202471 047652 , S , H , O , U ,000 MOVEM 11,@047652(11)
202511 720216 , T , O , , G ,000 MOVEM 12,720216(11)
202511 720244 , T , O , , R ,000 MOVEM 12,720244(11)
202570 147250 , W , A , N , T ,000 MOVEM 13,@147250(10)
202600 000000 , X ,000,000,000,000 MOVEM 14,000000
202600 000005' , X ,000,000,002, @ MOVEM 14,000005'
202600 000041 , X ,000,000,020, @ MOVEM 14,000041
202740 000272' , ↑ ,000,000, ] ,000 MOVEM 17,000272'
203374 620246 , o , f , , S ,000 MOVES 07,@620246(14)
204040 000354' ! ,002,000,000, v ,000 MOVS 01,000354'
204040 000416' ! ,002,000,001,007,000 MOVS 01,000416'
210040 000001 " ,002,000,000,000, @ MOVN 01,000001
211600 000001 " , 8 ,000,000,000, @ MOVNI 14,000001
213000 000001 " , ` ,000,000,000, @ MOVNS 000001
251740 000271' * , > ,000,000, \ , @ BLT 17,000271'
254000 000000 + ,000,000,000,000,000 JRST 000000
254000 000336' + ,000,000,000, o ,000 JRST 000336'
254000 000426' + ,000,000,001,013,000 JRST 000426'
254014 000000 + ,000, ` ,000,000,000 JRST 000000(14)
254017 000000 + ,000, x ,000,000,000 JRST 000000(17)
254017 000001 + ,000, x ,000,000, @ JRST 000001(17)
254217 000001 + ,010, x ,000,000, @ JRST 04,000001(17)
260740 000000 , ,036,000,000,000,000 PUSHJ 17,000000
260760 000301' , ,037,000,000, ` , @ PUSHJ 17,@000301'
265040 000000 - , " ,000,000,000,000 JSP 01,000000
265040 000347' - , " ,000,000, s , @ JSP 01,000347'
265040 000361' - , " ,000,000, x , @ JSP 01,000361'
265040 000363' - , " ,000,000, y , @ JSP 01,000363'
265040 000417' - , " ,000,001,007, @ JSP 01,000417'
265700 000000 - , < ,000,000,000,000 JSP 16,000000
265740 000000 - , > ,000,000,000,000 JSP 17,000000
270040 000367' . ,002,000,000,173, @ ADD 01,000367'
270321 240630 . ,015,012, A , L ,000 ADD 06,@240630(01)
271200 000002 . , ( ,000,000,001,000 ADDI 04,000002
302100 000001 0 , D ,000,000,000, @ CAIE 02,000001
311010 447634 2 , , D , O , N ,000 CAML 447634(10)
330000 002000 6 ,000,000,004,000,000 SKIP 002000
332000 000000 6 , @ ,000,000,000,000 SKIPE 000000
334000 000000 7 ,000,000,000,000,000 SKIPA 000000
402000 000000 @ , @ ,000,000,000,000 SETZM 000000
402000 000000' @ , @ ,000,000,000,000 SETZM 000000'
405012 242646 A , , R , E , S ,000 ANDI 242646(12)
406111 147216 A , D , I , N , G ,000 ANDM 02,147216(11)
406231 420312 A , I , L , , e ,000 ANDM 04,@420312(11)
406464 006424 A , S , ,015,012,000 ANDM 11,@006424(04)
416120 000000 C , E ,000,000,000,000 SETMM 02,@000000
425011 147246 E , , I , N , S ,000 SETAI 147246(11)
426464 047236 E , S , , N , O ,000 SETAM 11,@047236(04)
426504 040500 E , T , , A , ,000 SETAM 12,040500(04)
426504 047644 E , T , , O , R ,000 SETAM 12,047644(04)
431013 147652 F , , Y , O , U ,000 XORI 147652(13)
435012 042230 G , , P , D , L ,000 IORI 042230(12)
435012 350202 G , , S , P , A ,000 IORI 350202(12)
435040 001777 G , " ,000,003,177, @ IORI 01,001777
44 JOBVER 000000 000137
446350 727032 I , N , G , . ,015,000 EQVM 07,727032(10)
446464 053602 I , S , , W , A ,000 EQVM 11,@053602(04)
446504 042236 I , T , , D , O ,000 EQVM 12,042236(04)
462104 041212 L , D , , B , E ,000 SETCMM 02,041212(04)
462104 047236 L , D , , N , O ,000 SETCMM 02,047236(04)
462371 643500 L , O , N , G , ,000 SETCMM 07,@643500(11)
465012 042230 M , , P , D , L ,000 ORCMI 042230(12)
472132 351534 N , E , S , S , . ,000 ORCBM 02,@351534(12)
472504 046236 N , T , , L , O ,000 ORCBM 12,046236(04)
472504 106424 N , T , ! ,015,012,000 ORCBM 12,106424(04)
476000 000006' O , @ ,000,000,003,000 SETOM 000006'
476144 051212 O , F , , R , E ,000 SETOM 03,051212(04)
476472 426100 O , S , T , , , ,000 SETOM 11,@426100(12)
50 FF 000000 000000
50 II 000010 000000
50 RF 000000 000012
50 ST 000000 000006
50 EXT 000000 000127
50 FP1 000000 000053
50 FP2 000000 000054
50 IBP 000000 000011
50 NIC 000000 000002
50 OBP 000000 000004
50 OWN 000000 000100
50 PD. 000000 000000
50 PDL 000000 000043
50 RES 000000 400000
50 SET 000000 000040
50 TOP 000000 000073
50 WD3 000000 000130
50 $SGD 000000 000010
50 $SGF 000000 000011
50 AUTO 000000 000040
50 CLER 000000 000000
50 CNST 000000 200000
50 CONT 000000 000020
50 DIGS 000000 000124
50 ERBP 000000 000060
50 IBUF 000000 000014
50 IOIN 000000 000001
50 IPDP 000000 000234
50 ITEM 000000 000400
50 KEEP 000000 000001
50 LOWC 000000 000072
50 MKBP 000000 000057
50 OBUF 000000 000007
50 PROJ 000000 000134
50 PRPN 000000 000131
50 PUBP 000000 000061
50 RACS 000000 000135
50 REBP 000000 000062
50 REFB 000000 200000
50 SAFE 000000 000020
50 SPDL 000000 000044
50 TAC1 000000 000014
50 TAC2 000000 000013
50 TMPB 000000 400000
50 UUO1 000000 000000
50 WDTH 000000 000123
50 $ITNO 000000 000001
50 $SGNM 000000 000007
50 $SGPP 000000 000012
50 $VRNO 000000 000006
50 ..GEN 000000 000400
50 ..SYM 000000 000200
50 .LIST 777777 777776
50 .NEXT 777777 777777
50 .SIZE 777777 777775
50 AACOD 000000 000001
50 ARY2B 000000 004000
50 ARYLS 000000 000071
50 ATTOP 000000 000076
50 BAISW 000000 000001
50 BFHED 000000 000002
50 BINDB 000000 040000
50 CHANS 000000 000014
50 CMUSW 000000 000000
50 CODAC 000000 000122
50 CONOK 000000 001000
50 DATAB 000000 000051
50 DECSW 000000 000001
50 DMODE 000000 000000
50 DNAME 000000 000001
50 ENDFL 000000 000017
50 FBIND 000000 000100
50 FNAME 000000 000126
50 FRLOC 000000 000065
50 GGDAD 000000 000221
50 GLBAR 000000 001000
50 GLOBL 000000 200000
50 HASHP 000000 000056
50 IBPNT 000000 000010
50 INAME 000000 000013
50 IODIN 000000 000002
50 IOOUT 000000 000003
50 ISPDP 000000 000240
50 ITEMB 000000 010000
50 ITSSW 000000 000000
50 JPLSW 000000 000000
50 KLCOD 000000 000006
50 LABEL 000000 000020
50 LACOD 000000 000004
50 LOCAT 000000 000271
50 LONG2 000000 000133
50 MINSZ 000000 010000
50 MINUS 000000 000400
50 NPRIS 000000 000020
50 NRCSW 000000 000001
50 NUMBS 000000 000004
50 OBPNT 000000 000003
50 ONAME 000000 000006
50 PROCB 000000 020000
50 QBIND 000000 000200
50 QUESB 000000 100000
50 QUIET 000000 000002
50 RCDSW 000000 000001
50 RENSW 000000 000000
50 RGCSW 000000 000001
50 RPCOD 000000 000011
50 SACOD 000000 000002
50 SGACS 000000 000150
50 SHORT 000000 010000
50 SIXSW 000000 000001
50 SPLNK 000000 000002
50 STACS 000000 000164
50 STRSP 000000 000003
50 STTOP 000000 000007
50 SYSPD 000000 000001
50 TIMER 000000 000222
50 TYMSW 000000 000000
50 UNBND 000000 000002
50 UORSW 000000 000000
50 URHSW 000000 000000
50 USRTB 000000 020000
50 VALUE 000000 004000
50 XPAND 000000 000075
50 $$FINT 000000 000256
50 $$FITM 000000 000260
50 $$FLRL 000000 000265
50 $$FLST 000000 000262
50 $$FREC 000000 000264
50 $$FREL 000000 000257
50 $$FSET 000000 000261
50 $$FSTR 000000 000263
50 $$PROU 000000 000255
50 $CMVER 000000 000015
50 $FSLIS 000000 000241
50 $GITNO 000000 000003
50 $MSLNK 000000 000004
50 $NWITM 000000 000002
50 $OBPDA 000000 000016
50 $PINIT 000000 000014
50 $PNMNO 000000 000005
50 $SPREQ 000000 000020
50 $TINIT 000000 000013
50 %BALNK 000000 000011
50 %INLNK 000000 000007
50 %KTLNK 000000 000005
50 %PDLNK 000000 000006
50 %RBLNK 000000 000010
50 %RCLNK 000000 000012
50 %SETLK 000000 000003
50 %SGROT 000000 000004
50 %SPLNK 000000 000002
50 %STLNK 000000 000001
50 ..ARRA 000000 001000
50 ..COMS 000000 040000
50 ..EXPR 000000 002000
50 ..GOGO 000000 100000
50 ..HEAD 000000 000001
50 ..IOSE 000000 400000
50 ..LEAP 000000 010000
50 ..LEPR 000001 000000
50 ..LIST 000007 777607
50 ..MESP 000002 000000
50 ..PARS 000000 000004
50 ..PDEF 000000 000010
50 ..PROD 000000 000020
50 ..SAIL 000000 000002
50 ..SMTB 000000 000100
50 ..STAT 000000 004000
50 ..STRS 000000 200000
50 ..SUBR 000000 000040
50 ..TOTA 000000 020000
50 ..WRDG 000004 000000
50 .ERSWC 000000 000020
50 .HDRSI 000000 000004
50 .NOGEN 000000 000001
50 .STTOP 777777 777774
50 ALWAYS 000000 000001
50 ANYTYP 000000 000040
50 APRISW 000000 000000
50 ARRTYP 000000 000024
50 ARYDIR 000000 000070
50 BAILOC 000000 000243
50 BALENG 000000 000014
50 BILTIN 000000 000002
50 BKJFFO 000000 000246
50 BKTPRV 000000 000034
50 BKTPTR 000000 000035
50 BLKCOD 000000 000017
50 BLKTAB 000000 000072
50 BOOLEA 000000 001000
50 BPDALN 000000 000016
50 BRCHAR 000000 000016
50 BRKCVT 000000 000247
50 BRKDUM 000000 000251
50 BRKITM 000000 000002
50 BRKOMT 000000 000250
50 BRKTBL 000000 000046
50 BUFACS 000000 000101
50 BUFOPN 000000 002000
50 CDBLOC 000000 000125
50 CLNCOD 000000 000010
50 CMPLDC 000000 000002
50 CTXCOD 000000 000007
50 CTXTYP 000000 000013
50 CURMES 000000 000045
50 DBLPRC 000000 000004
50 DEFINE 000000 000010
50 DEFPDS 000000 000300
50 DFRINF 000000 000233
50 DISPAT 000000 000232
50 DSPLEN 000000 000430
50 DSPTBL 000000 000000
50 ENDREN 000000 000270
50 EOPCOD 000000 000000
50 ERRNOW 000000 000200
50 ERRTST 000000 000020
50 EVTTYP 000000 000012
50 EVTYPI 000000 000003
50 EXPCHR 000000 000266
50 EXPORT 000000 000000
50 EXTRNL 000000 020000
50 FLOTNG 000000 000002
50 FLTYPE 000000 000004
50 FNYNAM 000000 000004
50 FORTRA 000000 100000
50 FORWRD 000000 040000
50 FRCCOD 000000 000005
50 FREITM 000000 000067
50 FRELST 000000 000074
50 FSTATS 000000 000042
50 GLOBSW 000000 000000
50 HACKSW 000000 000001
50 HASDBL 000000 000020
50 HASMSK 000000 000055
50 HASRPS 000000 000004
50 HASSTR 000000 000010
50 HASTAB 000000 000052
50 HEDSYM 000000 000000
50 ICOUNT 000000 000015
50 ICOWNT 000000 000012
50 IJBCNI 000000 000235
50 IJBTPC 000000 000236
50 IMSSSW 000000 000000
50 INFOTA 000000 000050
50 INPROG 000000 400000
50 INTEGR 000000 000001
50 INTPRC 000000 000231
50 INTQRP 000000 000226
50 INTQWB 000000 000230
50 INTQWP 000000 000225
50 INTQWT 000000 000227
50 INTRNL 000000 040000
50 INTYPE 000000 000005
50 INVTYP 000000 000047
50 IOCLOS 000000 000005
50 IODOUT 000000 000004
50 IOENTE 000000 000016
50 IOINBU 000000 000007
50 IOLOOK 000000 000015
50 IOOPEN 000000 000014
50 IOOUTB 000000 000010
50 IORELE 000000 000006
50 IORENA 000000 000017
50 IOSETI 000000 000011
50 IOSETO 000000 000012
50 IOSTAT 000000 000000
50 IOTLEN 000000 000024
50 IRUNNR 000000 000237
50 ITMANY 000000 000000
50 ITMTOP 000000 000063
50 ITMVAR 000000 004000
50 ITVTYP 000000 000020
50 JFRCEL 000000 000244
50 KI10SW 000000 000001
50 KL10SW 000000 000001
50 KNTLNK 000000 000005
50 LBLTYP 000000 000016
50 LEABOT 000000 000064
50 LEAPSW 000000 000001
50 LFLTYP 000000 000021
50 LIBLEN 000000 000012
50 LINNUM 000000 000021
50 LINTBL 000000 000023
50 LINTYP 000000 000022
50 LOCSYM 000000 000000
50 LOGGIN 000000 000010
50 LOGOPN 000000 000100
50 LONGWD 000000 000132
50 LPARRA 000000 000100
50 LSTBIT 000000 000010
50 LSTYPE 000000 000007
50 MADEPT 000000 001000
50 MAINPI 000000 000001
50 MAXITM 000000 000046
50 MAXLOC 000000 000012
50 MESSAG 000000 000200
50 MINPDS 000000 000100
50 MPBIND 000000 010000
50 MSK6BT 000000 003740
50 MSKUNT 000000 003700
50 MXSTYP 000000 000022
50 NODELC 000000 000001
50 NOPROT 000000 000000
50 NOSHRK 000000 000077
50 NOTYPE 000000 000001
50 OCOWNT 000000 000005
50 OFFSET 000000 000111
50 OLDITM 000000 000047
50 PAGNUM 000000 000022
50 PARCSW 000000 000000
50 PD.BDI 000000 000013
50 PD.DLW 000000 000007
50 PD.DSW 000000 000005
50 PD.ID1 000000 000001
50 PD.ID2 000000 000002
50 PD.LLW 000000 000006
50 PD.NPW 000000 000004
50 PD.PCW 000000 000012
50 PD.PDA 000000 000010
50 PD.PDB 000000 000003
50 PD.PPD 000000 000011
50 PD.XXX 000000 000014
50 PGNNFL 000000 000200
50 PITTYP 000000 000010
50 PNTVAR 000000 002000
50 PRCTYP 000000 000011
50 PRILIS 000000 000201
50 PRNINF 000000 000242
50 PROCED 000000 020000
50 PRTINF 000000 000254
50 RCLTYP 000000 000017
50 RECTYP 000000 000015
50 RECURS 000000 000004
50 REFRNC 000000 002000
50 REMCHR 000000 000012
50 RENCSW 000000 000000
50 RFITYP 000000 000014
50 RGCOFF 000000 000250
50 RGCRHO 000000 000252
50 RPACOD 000000 000012
50 RSGCL2 000000 000246
50 RSGCLK 000000 000245
50 SBSCRP 000000 000001
50 SCBCHN 000000 000066
50 SCHDRQ 000000 000223
50 SEGBOT 000000 000267
50 SETCOD 000000 000003
50 SETIOS 000000 000013
50 SETLNK 000000 000003
50 SETYPE 000000 000006
50 SFDLVL 000000 000000
50 SGCCNT 000000 000114
50 SGCNUM 000000 000117
50 SGCTIM 000000 000115
50 SGCTOT 000000 000116
50 SGCWAS 000000 000120
50 SGLIGN 000000 000013
50 SGROUT 000000 000004
50 SIMPLE 000000 000400
50 SOSNUM 000000 000023
50 SPARUT 000000 000253
50 SRELOC 000000 000121
50 SRIAIS 000000 000000
50 STANSW 000000 000001
50 STBLST 000000 000247
50 STBUCK 000000 000111
50 STDSPC 000000 400000
50 STINCR 000000 000112
50 STKURT 000000 000224
50 STLIST 000000 000010
50 STREQD 000000 000113
50 STRING 000000 000200
50 STRLNK 000000 000001
50 STTYPE 000000 000003
50 SUMEXS 000000 000000
50 SYSPHS 000000 000002
50 SYSSPD 000000 000002
50 TENXSW 000000 000000
50 TGRADJ 000000 000251
50 TOPBYT 000000 000011
50 TSTSEG 000000 000000
50 TTYCVT 000000 000041
50 TTYDEV 000000 000016
50 URLPSW 000000 000000
50 URSTSW 000000 000000
50 USCOR2 000000 000100
50 USRPHS 000000 000003
50 WNTADR 000000 200000
50 WNTEND 000000 100000
50 WNTPDL 000000 040000
50 WNTPDP 000000 040000
50 XCOMSW 000000 000001
50 ZAPBEG 000000 000045
50 ZAPEND 000000 000111
502446 220230 P , R , 2 , , L ,000 HLLM 11,220230(06)
505201 000000 Q , ( ,010,000,000,000 HRLI 04,000000(01)
506040 000000 Q , B ,000,000,000,000 HRLM 01,000000
510321 200000 R ,015,012,000,000,000 HLLZ 06,@200000(01)
511010 240610 R , , B , A , D ,000 HLLZI 240610(10)
511011 247604 R , , J , O , B ,000 HLLZI 247604(11)
512131 540640 R , E , M , A , P ,000 HLLZM 02,@540640(11)
513000 000000 R , ` ,000,000,000,000 HLLZS 000000
516031 146100 S , A , I , L , ,000 HRLZM @146100(11)
516130 746612 S , E , G , M , E ,000 HRLZM 02,@746612(10)
516132 450244 S , E , T , P , R ,000 HRLZM 02,@450244(12)
516365 420222 S , O , , , , I ,000 HRLZM 07,@420222(05)
516510 151250 S , T , A , R , T ,000 HRLZM 12,151250(10)
516512 244634 S , T , R , I , N ,000 HRLZM 12,244634(12)
516632 352212 S , Y , S , T , E ,000 HRLZM 14,@352212(12)
521010 447500 T , , D , O , ,000 HLLOI 447500(10)
522130 142134 T , E , A , D , . ,000 HLLOM 02,@142134(10)
522371 720432 T , O , O , ! ,015,000 HLLOM 07,@720432(11)
525500 000001 U , 4 ,000,000,000, @ HRLOI 12,000001
526344 052220 U , N , , T , H ,000 HRLOM 07,052220(04)
536032 242500 W , A , R , E , ,000 HRLEM @242500(12)
542040 000000 X , B ,000,000,000,000 HRRM 01,000000
542040 000307' X , B ,000,000, c , @ HRRM 01,000307'
542200 000365' X , H ,000,000, z , @ HRRM 04,000365'
545012 347500 Y , , S , O , ,000 HLRI 347500(12)
545304 041212 Y , , , , B , E ,000 HLRI 06,041212(04)
550100 000001 Z ,004,000,000,000, @ HRRZ 02,000001
550600 000000 Z ,030,000,000,000,000 HRRZ 14,000000
557000 000001 [ , ` ,000,000,000, @ HLRZS 000001
560200 000000 \ ,010,000,000,000,000 HRRO 04,000000
60 JOB41 000000 000000
60 JOBFF 000000 000500'
60 JOBSA 000000 000324'
60 JOBSA 000000 000501'
60 K.OUT 000000 000327'
60 P.FIN 000000 000330'
60 %ALLOC 000000 000322'
60 %UUOLN 000000 000423'
60 JOBAPR 000000 000000
60 JOBCNI 000000 000000
60 JOBDDT 000000 000000
60 JOBHRL 000000 000334'
60 JOBREL 000000 000371'
60 JOBREL 000000 000477'
60 JOBREN 000000 000000
60 JOBSYM 000000 000000
60 JOBTPC 000000 000000
60 JOBUUO 000000 000000
60 K.ZERO 000000 000000
634151 634730 g ,006, N , 9 , l ,000 TDZA 03,634730(11)
634547 000000 g ,026, 8 ,000,000,000 TDZA 13,000000(07)
634600 000014 g ,030,000,000,006,000 TDZA 14,000014
637163 000000 g , g ,030,000,000,000 TSZN 03,@000000(03)
647375 606424 i , o , n ,015,012,000 TLCN 07,@606424(15)
743134 372750 x , e , c , u , t ,000 DATAO 02,@372750(14)
777740 000000 177,176,000,000,000,000 CONSO 17,000000
777777 777766
777777 777767
777777 777770
777777 777771
777777 777772
777777 777773
777777 777774
777777 777775
777777 777776
777777 777777
LOCATION 000000 000000'
LOCATION 000000 000036'
LOCATION 000000 000053'
LOCATION 000000 000074'
LOCATION 000000 000115'
LOCATION 000000 000124
LOCATION 000000 000127'
LOCATION 000000 000131'
LOCATION 000000 000133'
LOCATION 000000 000137
LOCATION 000000 000155'
LOCATION 000000 000225'
LOCATION 000000 000273'
LOCATION 000000 000276'
LOCATION 000000 000306'
LOCATION 000000 000327'
LOCATION 000000 000350'
LOCATION 000000 000371'
LOCATION 000000 000412'
LOCATION 000000 000421'
LOCATION 000000 000433'
LOCATION 000000 000454'
LOCATION 000000 000475'
LOCATION 000000 000516'
LOCATION 000000 000537'
OPF 000000 000000
OPF 000000 000306'
OPG 04 %SPGC
OPG 04 LPINI
OPG 04 $RCINI
OPG 04 %ARRSR
OPG 04 %STRMR
SAL 000000 000124
SAL 000000 000127'
SAL 000000 000131'
SAL 000000 000133'
SAL 000000 000274'
SAL 000000 000277'
00 LOWER
END BLOCK
INTERNAL REQUEST
LINK BLOCK
NAME BLOCK
POLISH FIXUPS
PROGRAM
SYMBOLS